home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 101 (1989-08-15)(Ossowski, Stefan)(DE)(PD).zip
/
Taifun 101 (1989-08-15)(Ossowski, Stefan)(DE)(PD).adf
/
Binär
/
Bin.Mod
< prev
next >
Wrap
Text File
|
1989-04-20
|
2KB
|
61 lines
(* Public Domain-Programm von Taifun 18.04.1989
Dieses Programm ist frei kopierbar, wenn dieser Text enthalten bleibt
und das Anleitungsfile unverändert ist. *)
MODULE Bin ;
FROM SYSTEM IMPORT ADR,BITSET ;
FROM InOut IMPORT WriteString,WriteLn,WriteCard,ReadCard ;
TYPE BitSetPtr = POINTER TO BITSET ;
VAR C,i,Zahl : CARDINAL ;
ZahlPtr : BitSetPtr ;
PROCEDURE RechneUm(bPtr : BitSetPtr) ;
BEGIN (* RechneUm *)
FOR i := 15 TO 0 BY -1 DO
IF (i IN bPtr^) THEN
WriteString("1") ;
ELSE
WriteString("0") ;
END (* IF *) ;
END (* FOR *);
END RechneUm ;
PROCEDURE Zeile ;
BEGIN (* Zeilenvorschub *)
FOR C:= 0 TO 4 DO
WriteLn;
END (* FOR *);
END Zeile;
BEGIN (* --- Hauptprogramm --- *)
Zeile; Zeile; Zeile; Zeile; Zeile; Zeile;
REPEAT
WriteString(" Public Domain-Modula-2-Programm von Taifun");
WriteLn ;
WriteString(" Abbruch mit RETURN");
WriteLn;
WriteString(" Programm rechnet Dezimalzahlen in Binärzahlen um.");
WriteLn; WriteLn; WriteLn; WriteLn;
WriteString(" Bitte machen Sie Ihre Eingabe --> ");
ReadCard(Zahl);
WriteLn; WriteLn;
ZahlPtr := ADR(Zahl) ;
WriteString(" Dezimalzahl = ");
WriteCard(Zahl,1) ; WriteString(" ") ;
WriteString("Zahl ist Binär --> ");
RechneUm(ZahlPtr) ;
Zeile;
UNTIL (Zahl = 0) ;
WriteString(" Bis bald........... ......T A I F U N");
Zeile;
END Bin .